﻿Imports System.Net.Mail
Imports System.Net

Public Class Mail

    Public Shared EMAIL As String = "cafapro@gmail.com"
    Public Shared FIRMA As String = "CA.FA.PRO - Cámara de Farmacéuticos y Propietarios de Farmacias" + vbCrLf + "Maipú 11, entrepiso oficinas E y F" + vbCrLf + "Córdoba" + vbCrLf + "Argentina" + vbCrLf + "0351-4260589/4245043"



    Public Shared Sub enviarMailSolucion(ByVal PersonaEmail As String, ByVal ConsultaFarmaciaMotivo As String, ByVal SolucionConsultaFarmaciaDescripcion As String)
        Try
            'Declara el servidor smtp
            Dim smtp As New SmtpClient("smtp.gmail.com")
            Dim correo As New MailMessage

            'Acá iría el correo electrónico de la empresa
            correo.From = New MailAddress(EMAIL)
            'Acá debería mandarse el mail al representante de farmacia que hizo la consulta en realidad
            'correo.To.Add("feli.martina@gmail.com")
            correo.To.Add("feli.martina@gmail.com")
            'correo.To.Add("filippifranco@hotmail.com@gmail.com")
            correo.Subject = "CAFAPRO - Solución a consulta - " + Date.Now
            correo.Body = "Su consulta: " + vbCrLf + ConsultaFarmaciaMotivo + vbCrLf + vbCrLf + "Solución propuesta: " + vbCrLf + SolucionConsultaFarmaciaDescripcion + vbCrLf + vbCrLf + "Por favor informe a CAFAPRO si esta conforme con la solución propuesta" + vbCrLf + FIRMA
            correo.IsBodyHtml = False
            correo.Priority = MailPriority.High

            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New NetworkCredential(EMAIL, "CAFAPRO2010")
            'Envio el correo
            smtp.Send(correo)
        Catch ex As Exception
            MsgBox("El correo no se ha podido enviar. " + vbCrLf + "Para mayor detalle consulte a su administrador.", MsgBoxStyle.ApplicationModal, "Atención")
        End Try        

    End Sub

    Public Shared Sub enviarMailConsulta(ByVal PersonaEmail As String, ByVal ConsultaFarmaciaMotivo As String)

        Try
            'Declara el servidor smtp
            Dim smtp As New SmtpClient("smtp.gmail.com")
            Dim correo As New MailMessage

            'Acá iría el correo electrónico de la empresa
            correo.From = New MailAddress(EMAIL)
            'Acá debería mandarse el mail al representante de farmacia que hizo la consulta en realidad
            correo.To.Add("feli.martina@gmail.com")
            correo.Subject = "CAFAPRO - Confirmación de Consulta - " + Date.Now
            correo.Body = "Su consulta: " + vbCrLf + ConsultaFarmaciaMotivo + vbCrLf + vbCrLf + "En breve daremos respuesta a su consulta." + vbCrLf + vbCrLf + FIRMA
            correo.IsBodyHtml = False
            correo.Priority = MailPriority.High

            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New NetworkCredential(EMAIL, "CAFAPRO2010")
            'Envio el correo
            smtp.Send(correo)

        Catch ex As Exception
            MsgBox("El correo no se ha podido enviar. " + vbCrLf + "Para mayor detalle consulte a su administrador.", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Critical, "Atención")
        End Try
        
    End Sub

    Public Shared Sub enviarMailErroresReceta(ByVal DestinatarioEmail As String, ByVal RecetaCodigo As String, ByVal ObraSocialXPlan As String, ByVal ErroresReceta As String)
        Try
            'Declara el servidor smtp
            Dim smtp As New SmtpClient("smtp.gmail.com")
            Dim correo As New MailMessage

            'Acá iría el correo electrónico de la empresa
            correo.From = New MailAddress(EMAIL)
            'Acá debería mandarse el mail al representante de farmacia que hizo la consulta en realidad
            correo.To.Add("feli.martina@gmail.com")
            correo.Subject = "CAFAPRO - Errores de receta " + RecetaCodigo + " - " + Date.Now
            correo.Body = "Se encontraron errores para la receta: " + RecetaCodigo + " de la Obra Social: " + ObraSocialXPlan + vbCrLf + vbCrLf + "Errores Receta:" + vbCrLf + ErroresReceta + vbCrLf + vbCrLf + FIRMA
            correo.IsBodyHtml = False
            correo.Priority = MailPriority.High

            smtp.Port = 587
            smtp.EnableSsl = True
            smtp.Credentials = New NetworkCredential(EMAIL, "CAFAPRO2010")
            'Envio el correo
            smtp.Send(correo)

        Catch ex As Exception
            MsgBox("El correo no se ha podido enviar. " + vbCrLf + "Para mayor detalle consulte a su administrador.", MsgBoxStyle.ApplicationModal + MsgBoxStyle.Critical, "Atención")
        End Try

    End Sub
End Class
